Fountain-Duplicate-P names a function, with lambda list (EVENT-SOURCE):
Returns generalized true if EVENT-SOURCE has happened already on the same Tootsville day as today.
Defined in file src/quaestor.lisp.